Chip 2002 May/chip-cd_2002_05.zip/05/Dom i biuro/Mr Faktury Pro 1.53/mr_faktury_pro.exe/0/RCDATA/TFUSTAW_WALUTE/TFUSTAW_WALUTE.txt

Text File | 2002-03-27 | 4KB | 201 lines

object fUstaw_walute: TfUstaw_walute
  Left = 466
  Top = 350
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Ustaw walut'#281
  ClientHeight = 230
  ClientWidth = 284
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lWaluta: TLabel
    Left = 16
    Top = 152
    Width = 34
    Height = 13
    Caption = 'Waluta'
    Visible = False
  end
  object lKurs: TLabel
    Left = 16
    Top = 176
    Width = 21
    Height = 13
    Caption = 'Kurs'
    Visible = False
  end
  object lSkrot: TLabel
    Left = 208
    Top = 152
    Width = 23
    Height = 13
    Caption = 'skr'#243't'
    Visible = False
  end
  object DBGrid1: TDBGrid
    Left = -8
    Top = 0
    Width = 289
    Height = 137
    DataSource = ds
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'nazwa'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'skrot'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'data_zmiany'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'kurs'
        Visible = True
      end>
  end
  object bWyjdz: TButton
    Left = 208
    Top = 200
    Width = 75
    Height = 25
    Caption = '&Wyjd'#378
    TabOrder = 1
    OnClick = bWyjdzClick
  end
  object bDodaj: TButton
    Left = 8
    Top = 200
    Width = 49
    Height = 25
    Caption = '&Dodaj'
    TabOrder = 2
    OnClick = bDodajClick
  end
  object eNazwa: TEdit
    Left = 72
    Top = 144
    Width = 121
    Height = 21
    TabOrder = 3
    Visible = False
  end
  object eKurs: TEdit
    Left = 72
    Top = 168
    Width = 65
    Height = 21
    TabOrder = 4
    Visible = False
  end
  object eSkrot: TEdit
    Left = 240
    Top = 144
    Width = 25
    Height = 21
    MaxLength = 3
    TabOrder = 5
    Visible = False
  end
  object bZmien: TButton
    Left = 64
    Top = 200
    Width = 57
    Height = 25
    Caption = '&Zmie'#324
    TabOrder = 6
    OnClick = bZmienClick
  end
  object bUs_wartosc: TButton
    Left = 128
    Top = 200
    Width = 73
    Height = 25
    Caption = '&Us. kurs'
    TabOrder = 7
    OnClick = bUs_wartoscClick
  end
  object ds: TDataSource
    DataSet = tWaluta
    Left = 24
    Top = 40
  end
  object tWaluta: TffTable
    DatabaseName = 'mr_sklep'
    FieldDefs = <
      item
        Name = 'numer'
        DataType = ftAutoInc
      end
      item
        Name = 'nazwa'
        Attributes = [faRequired]
        DataType = ftString
        Size = 15
      end
      item
        Name = 'skrot'
        Attributes = [faRequired]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'kurs'
        Attributes = [faRequired]
        DataType = ftCurrency
      end
      item
        Name = 'data_zmiany'
        Attributes = [faRequired]
        DataType = ftDate
      end>
    SessionName = '[automatic]'
    TableName = 'waluta'
    Timeout = 10000
    Left = 64
    Top = 40
    object tWalutanumer: TAutoIncField
      FieldName = 'numer'
    end
    object tWalutanazwa: TStringField
      FieldName = 'nazwa'
      Required = True
      Size = 15
    end
    object tWalutaskrot: TStringField
      FieldName = 'skrot'
      Required = True
      Size = 3
    end
    object tWalutadata_zmiany: TDateField
      FieldName = 'data_zmiany'
      Required = True
    end
    object tWalutakurs: TCurrencyField
      FieldName = 'kurs'
      Required = True
    end
  end
end